home *** CD-ROM | disk | FTP | other *** search
/ Elite European Models 1 / Elite European Models 1.iso / pc / elite.dxr / 00116.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  798 b   |  27 lines
  1. global gImages, gDataPos, gImageCount
  2.  
  3. on exitFrame
  4.   set theCurrentImage to getAt(gImages, gDataPos)
  5.   set the visible of sprite 1 to 1
  6.   set the stretch of sprite 1 to 0
  7.   set the stretch of sprite 1 to 1
  8.   set the locH of sprite 1 to 0
  9.   set the locV of sprite 1 to 0
  10.   set WI to the height of cast theCurrentImage
  11.   set HI to the width of cast theCurrentImage
  12.   if value(HI) > value(WI) then
  13.     spriteBox(1, 0, 0, WI - 250, HI - 700)
  14.     set the locH of sprite 1 to 320
  15.     set the locV of sprite 1 to 210
  16.     puppetTransition(9, 1, 4)
  17.     set the visible of sprite 1 to 1
  18.     updateStage()
  19.   else
  20.     spriteBox(1, 0, 0, WI - 700, HI - 270)
  21.     set the locH of sprite 1 to 320
  22.     set the locV of sprite 1 to 215
  23.     puppetTransition(9, 1, 4)
  24.     set the visible of sprite 1 to 1
  25.   end if
  26. end
  27.